home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / growthre.sit / Growth Records / background_6652.txt < prev    next >
Text File  |  1988-02-06  |  5KB  |  244 lines
  1. -- background: 6652 from stack: in
  2. -- bmap block id: 14060
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   push recent card
  9. end openCard
  10.  
  11.  
  12.  
  13. -- part 5 (button)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=226 top=295 right=320 bottom=253
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 1014 / 1014
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Prev
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   visual effect wipe right
  28.   go to previous card
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 6 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=255 top=295 right=320 bottom=282
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 1013 / 1013
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Next
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   visual effect wipe left
  48.   go to next card
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 7 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=453 top=294 right=322 bottom=490
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 1012 / 1012
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Return
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   visual effect iris close
  68.   pop card
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 8 (button)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=22 top=292 right=321 bottom=54
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 21700 / 21700
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Home
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   visual effect iris open
  88.   go Home
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 13 (field)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=80 top=33 right=52 bottom=419
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 20
  101. -- text size: 14
  102. -- style flags: 256
  103. -- line height: 18
  104. -- part name: title
  105.  
  106.  
  107. -- part 14 (button)
  108. -- low flags: 00
  109. -- high flags: 2000
  110. -- rect: left=56 top=294 right=322 bottom=97
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: New Button
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   go to card id 5522
  122. end mouseUp
  123.  
  124.  
  125.  
  126.  
  127. -- part 15 (field)
  128. -- low flags: 00
  129. -- high flags: 0000
  130. -- rect: left=29 top=56 right=290 bottom=477
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 0
  134. -- font id: 20
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: 
  139.  
  140.  
  141. -- part 16 (button)
  142. -- low flags: 00
  143. -- high flags: 2000
  144. -- rect: left=100 top=293 right=321 bottom=133
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: growth records
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   visual effect iris close
  156.   go "growth records"
  157.  
  158. end mouseUp
  159.  
  160.  
  161.  
  162.  
  163. -- part 17 (button)
  164. -- low flags: 00
  165. -- high flags: 2000
  166. -- rect: left=99 top=322 right=342 bottom=136
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: New Button
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   get field "title" in this card
  178.   put first word of it into cardtitle
  179.   put "DD " before cardtitle
  180.   go to card cardtitle
  181.  
  182.   if the result is not empty then
  183.     answer "No diff diag card entitled: " & cardtitle
  184.   end if
  185.  
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 18 (button)
  191. -- low flags: 00
  192. -- high flags: 2000
  193. -- rect: left=136 top=322 right=342 bottom=173
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: New Button
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.  
  205.   get field "title" in this card
  206.   put first word of it into cardtitle
  207.   put "HP " before cardtitle
  208.   go to card cardtitle
  209.  
  210.   if the result is not empty then
  211.     answer "No H&P card entitled: " & cardtitle
  212.   end if
  213.  
  214.  
  215.  
  216. end mouseUp
  217.  
  218.  
  219.  
  220.  
  221. -- part 19 (button)
  222. -- low flags: 00
  223. -- high flags: 2000
  224. -- rect: left=176 top=322 right=342 bottom=207
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 1
  228. -- font id: 0
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: New Button
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   get field "title" in this card
  236.   put first word of it into cardtitle
  237.   put "Lab " before cardtitle
  238.   go to card cardtitle
  239.  
  240.   if the result is not empty then
  241.     answer "No Lab card entitled: " & cardtitle
  242.   end if
  243. end mouseUp
  244.